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— IODefs.Mesa Edited by Wick on August 27, 1977 6:03 PM 

DIRECTORY 

StreamDefs: FROM "streamdef s"; 

DEFINITIONS FROM StreamDefs; 

IODefs: DEFINITIONS = BEGIN 

-- some control characters 



NUL: CHARACTER = OC; 



ControlA 
ControlB 
ControlC 
ControlD 
ControlE 
Control F 
ControlG 
ControlH 
Control I 
Con trol J 
ControlK 
ControlL 
ControlM 
ControlN 
ControlO 
ControlP 
ControlQ 
ControlR 
Controls 
ControlT 
ControlU 
ControlV 
ControlW 
ControlX 
ControlY 
Control Z 



CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 



1C 
2C 
3C 
4C 
5C 
6C 



BEL: CHARACTER = 7C; 
BS: CHARACTER = IOC; 
TAB: CHARACTER = 11C; 
LF: CHARACTER = 12C; 
CHARACTER = 13C; 
FF: CHARACTER = 14C; 
CR: CHARACTER = 15C; 
CHARACTER = 16C; 



CHARACTER * 17C 

CHARACTER = 20C 

CHARACTER = 21C 

CHARACTER = 22C 

CHARACTER = 23C 

CHARACTER = 24C 

CHARACTER * 25C 

CHARACTER * 26C 

CHARACTER = 27C 

CHARACTER = 30C 

CHARACTER = 31C 

CHARACTER = 32C 

ESC: CHARACTER = 33C; 

SP: CHARACTER = 40C; 

DEL: CHARACTER = 177C; 



-- numerical output formatting 

NumberFormat: TYPE = RECORD [ 
base: [2. .36], 

zerofill, unsigned: BOOLEAN, 
columns: [0. .255]]; 

GetlnputStream, GetOutpu tStream: PROCEDURE RETURNS [StreamHandle] ; 

NewLine: PROCEDURE RETURNS [BOOLEAN]; 

ReadChar: PROCEDURE RETURNS [CHARACTER]; 
WriteChar: PROCCDURE [CHARACTER]; 

ReadEditedString: PROCEDURE [ 

STRING, PROCEDURE[CHARACTER]RETURNS[BOOLEAN], BOOLEAN] 
RETURNS [CHARACTER]; 

ReadString: PROCEDURE [STRING, PROCEDURE[CHARACTER]RETURNS[BOOLEAN] ] ; 
WriteString: PROCEDURE [STRING]; 

Rubout, TnvTl idNumberBase : SIGNAL; 

I ineOverflow: SIGNAI [s: STRING] RETURNS [ns: STRING]; 

ReadID, Readline, WriteLine: PROCEDURE [STRING]; 

OuLNumber: PROCEDURE [StreamHandle, UNSPECIFIED, NumberFormat]; 

WriLeNumber: PROCEDURE [UNSPECIFIED, NumberFormat]; 

ReadNumber: PROCEDURE [default: UNSPECIFIED, radix: CARDINAL] RFIURNS [UNSPECIFIED]; 

ReadOctal: PROCTDURF RETURNS [UNSPECI F IFD] ; 

WriteOctal: PROCFDURr [UNSPECIFIED]; 

ReadDecimal: PROCEDURE RETURNS [INTEGER]; 

Wr iteDecimal : PROCFDURr [INTEGER]; 
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StreamlO: PROGRAM [Input, Output: StreamHandle] ; 
END. 



